home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / contrib / xyps-txt.tex < prev    next >
Encoding:
Text File  |  1995-03-15  |  2.6 KB  |  64 lines
  1. %% xyps-txt.tex from $Id: xyps-txt.doc,v 2.10 1994/06/15 12:46:03 ross Exp $
  2. %%
  3. %% XY-pic ``Textures driver''.
  4. %% Copyright (c) 1993-1994 Ross Moore <ross@mpce.mq.edu.au>
  5. %%
  6. %% This file is part of the XY-pic package for graphs and diagrams in TeX.
  7. %% See the companion README and INSTALL files for further information.
  8. %% Copyright (c) 1991-1994 Kristoffer H. Rose <kris@diku.dk>
  9. %%
  10. %% The XY-pic package is free software; you can redistribute it and/or modify
  11. %% it under the terms of the GNU General Public License as published by the
  12. %% Free Software Foundation; either version 2 of the License, or (at your
  13. %% option) any later version.
  14. %%
  15. %% The XY-pic package is distributed in the hope that it will be useful, but
  16. %% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  17. %% or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
  18. %% for more details.
  19. %%
  20. %% You should have received a copy of the GNU General Public License along
  21. %% with this package; if not, write to the Free Software Foundation, Inc.,
  22. %% 675 Mass Ave, Cambridge, MA 02139, USA.
  23. %%
  24. \ifx\xypsdviloaded\relax \message{not reloaded}\endinput \fi
  25. \let\xypsdviloaded=\relax \xycatcodes
  26. \xydef@\TexturesSpecial@#1{\firstPS@@\special{postscript #1}}
  27. \xydef@\TexturesMacro@#1{\firstPS@@\special{postscript mark{#1}xy}}
  28. \xydef@\TexturesInclude@#1{\firstPS@@\special{rawpostscriptfile #1}}
  29. \xydef@\TexturesRaw@#1{\firstPS@@\special{rawpostscript #1}}%
  30. \xydef@\Textures@@{\gdef\dvitype@{Textures }\dvimessage@
  31.  \global\let\PSspecial@=\TexturesSpecial@
  32.  \global\let\PSmacro@=\TexturesMacro@
  33.  \global\let\PSdict@=\TexturesMacro@
  34.  \global\let\PSraw@=\TexturesRaw@
  35.  \global\let\PSinclude@=\TexturesInclude@
  36.  \global\let\xyPSobeylines@=\obeyTextureslines@
  37.  \ifUsePSdict@@
  38.  \global\let\XYdict@=\includeXYPSdict@ \fi
  39.  \gdef\firstPS@@{\firstPS@ \@PSshipout}%
  40.  \gdef\endXYdict@{\firstPS@}%
  41.  \xyPSshapes@true
  42.  }%
  43. \xywarnifdefined\obeyTextureslines@
  44. {\catcode`\^^M=\active
  45.  \gdef\obeyTextureslines@{\catcode`\^^M=\active \let^^M=\par \obeyspaces}}
  46.  \Textures@@
  47. \gdef\xyPScurrpt@@{\PSspecial@{userdict begin 
  48.  0 0 transform grestore gsave itransform 
  49.  /xyYpos exch def /xyXpos exch def end}}
  50.  \xywithoption{line}{%
  51.  \xyinputorelse@{xyps-l.tex}{\xyerror@{Could not load xyps-l.tex}{}}}
  52.  \xycatcodes
  53.  \xywithoption{rotate}{%
  54.  \xyinputorelse@{xyps-r.tex}{\xyerror@{Could not load xyps-r.tex}{}}}
  55.  \xycatcodes
  56.  \xywithoption{color}{%
  57.  \xyinputorelse@{xyps-col.tex}{\xyerror@{Could not load xyps-col.tex}{}}}
  58.  \xycatcodes
  59.  \xyinputorelse@{xyps-c.tex}{\xyerror@{Could not load xyps-c.tex}{}}
  60.  \xycatcodes
  61.  \xyinputorelse@{xyps-col.tex}{\xyerror@{Could not load xyps-col.tex}{}}
  62.  \xycatcodes
  63. \xyendinput
  64.